home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Mode.xdme < prev    next >
Text File  |  1995-08-16  |  857b  |  22 lines
  1. /* $VER: Mode.xdme 1.1 (16 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3. /* Selects the appropriate mode according to the file name */
  4.  
  5. ARG name
  6.  
  7. dot = Lastpos(".", name)
  8. IF dot ~= 0 THEN ext = Substr(name, dot)
  9.  
  10. SELECT
  11.     WHEN ext = ".HTML" THEN "html-mode"
  12.     WHEN ext = ".C" | ext = ".CC" | ext = ".H" THEN "c-mode"
  13.     WHEN ext = ".TXT" | ext = ".DOC" | ext = ".DOK" THEN "text-mode"
  14.     WHEN ext = ".GUIDE" THEN "amigaguide-mode"
  15.     WHEN ext = ".MAN" THEN "manual-mode"
  16.     WHEN ext = ".el" | pos("INSTALL", name) > 0 THEN "lisp-mode"
  17.     WHEN ext = ".REXX" | ext = ".XDME" | pos(":REXX/",name) > 0 | pos("/REXX/", name) > 0 | left(name,5) = "REXX:" THEN "arexx-mode"
  18.     WHEN pos(":S/",name) > 0 | pos("/S/", name) > 0 | left(name,2) = "S:" THEN "programming-mode"
  19.     WHEN dot ~= 0 THEN "fundamental-mode"
  20.     OTHERWISE "programming-mode"
  21. END
  22.